home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 20 Music & Utilities / SIDFOR.TXT < prev    next >
Text File  |  2019-04-13  |  1KB  |  37 lines
  1. #: 27581 S4/Music Util/Demos
  2.     22-Jul-92  23:04:15
  3. Sb: #27580-#SID format
  4. Fm: John Iannetta 73510,2152
  5. To: alex burger 72450,2273 (X)
  6.  
  7. Alex,
  8.  
  9.           Do you mean an .MUS file?  If that be the case, this is the story.
  10. Call the first byte of the file, byte 0.
  11.  Ignore bytes 0 and 1.  Bytes 2 and 3 are the length of the data for voice 1
  12. (in low byte, high byte form).  Bytes 4 and 5 are for voice 2.  Bytes 6 and 7
  13. are for voice 3.  The data start at byte 8.  After the data, the description
  14. starts.
  15.  
  16.           So the byte number for start of text is:
  17.  
  18. SUM OF THREE LOW BYTES + 256*(SUM OF THREE HIGH BYTES) + 8.  The text ends with
  19. a zero.  Here is a BASIC type-in program for displaying the description:
  20.  
  21. 10 z$=chr$(0):printchr$(147)
  22. 20 print"enter filename"
  23. 30 print:inputa$:open8,8,8,a$
  24. 40 print:get#8,a$:get#8,a$
  25. 50 gosub200:b=b+a
  26. 60 gosub200:b=b+a
  27. 70 gosub200:b=b+a
  28. 80 fori=1tob:get#8,a$:next
  29. 90 get#8,a$:ifa$=""then110
  30. 100 printa$;:goto90
  31. 110 close8:end
  32. 200 get#8,a$:a=asc(a$+z$)
  33. 210 get#8,a$:a=a+256*asc(a$+z$)
  34. 220 return
  35.  
  36.              John
  37.